home *** CD-ROM | disk | FTP | other *** search
/ AppleScript - The Beta Release / AppleScript - The Beta Release.iso / Example Scripts / Example Scripts (as text) / Finder Scripts / Find Original < prev    next >
Encoding:
Text File  |  1992-12-02  |  299 b   |  14 lines  |  [TEXT/ToyS]
  1. tell application "Finder"
  2.     repeat with Q in the selection
  3.         if the kind of Q is "alias" then
  4.             Reveal the original item of Q
  5.             exit
  6.         end if
  7.     end repeat
  8. end tell
  9.  
  10. on error n
  11.     display dialog ¬
  12.         "Could not find the original of the alias file.\r(" & n & ")" buttons "Sorry" ¬
  13.         with icon 0
  14. end error